10 A=53280:B=0:C=11:D=12:E=15
20 POKEA,B:GOSUB30:POKEA,L:GOSUB30:POKEA,D:GOSUB30:POKEA,E:GOSUB30:GOTO20
30 ::RETURN